home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 43 / 64er_Magazin_Sonderheft_43_19xx_Markt__Technik_de_Side_B.d64 / gleichungen ii (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  256 b   |  15 lines
  1. 10 deffna(x)=x*x*x-2*x*x+7
  2. 20 deffnb(x)=x*x+7*x
  3. 30 ge=5:rem genauigkeit
  4. 40 de=0.5/10^ge
  5. 50 input"startwert";xa
  6. 60 x=xa
  7. 70 fa=fna(x)-fnb(x)
  8. 80 x=xa+0.1
  9. 90 f=fna(x)-fnb(x)
  10. 100 xn=x-(xa-x)*f/(fa-f)
  11. 110 d=abs((x-xn)/(xn+de))
  12. 120 ifd<dethen140
  13. 130 x=xn:goto90
  14. 140 print"x=";xn
  15.